﻿Imports NMock2

Imports System.Collections.Generic
Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Meiners.Libs.Withings
Imports Meiners.Libs.Withings.Core

    '''<summary>
    '''This is a test class for ReadSubscriptionResponseTest and is intended
    '''to contain all ReadSubscriptionResponseTest Unit Tests
    '''</summary>
    <TestClass()> _
    Public Class ReadSubscriptionResponseTest


        Private testContextInstance As TestContext

        '''<summary>
        '''Gets or sets the test context which provides
        '''information about and functionality for the current test run.
        '''</summary>
        Public Property TestContext() As TestContext
            Get
                Return testContextInstance
            End Get
            Set(ByVal value As TestContext)
                testContextInstance = value
            End Set
        End Property

        '''<summary>
        '''A test for ExpireDate
        '''</summary>
        <TestMethod()> _
        Public Sub ExpireDateTest()
            Dim status As StatusResponseEnum = StatusResponseEnum.Successfull
            Dim expireDate As DateTime = DateTime.Now
            Dim comment As String = String.Empty
            Dim target As ReadSubscriptionResponse = New ReadSubscriptionResponse(status, expireDate, comment) ' TODO: Initialize to an appropriate value
            Dim actual As DateTime
            actual = target.ExpireDate
            Assert.AreEqual(Of DateTime)(expireDate, actual)
        End Sub

        '''<summary>
        '''A test for Comment
        '''</summary>
        <TestMethod()> _
        Public Sub CommentTest()
            Dim status As StatusResponseEnum = StatusResponseEnum.Successfull
            Dim expireDate As DateTime = DateTime.Now
            Dim comment As String = Guid.NewGuid.ToString
            Dim target As ReadSubscriptionResponse = New ReadSubscriptionResponse(status, expireDate, comment) ' TODO: Initialize to an appropriate value
            Dim actual As String
            actual = target.Comment
            Assert.AreEqual(Of String)(comment, actual)
        End Sub

        '''<summary>
        '''A test for ReadSubscriptionResponse Constructor
        '''</summary>
        <TestMethod()> _
        Public Sub ReadSubscriptionResponseConstructorTest()
            Dim status As StatusResponseEnum = StatusResponseEnum.Successfull
            Dim expireDate As DateTime = DateTime.Now
            Dim comment As String = Guid.NewGuid.ToString
            Dim target As ReadSubscriptionResponse = New ReadSubscriptionResponse(status, expireDate, comment)
            Assert.IsInstanceOfType(target, GetType(ReadSubscriptionResponse))
        End Sub
End Class
